home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr47 / sch250.zip / ORDER.PRG < prev    next >
Text File  |  1995-02-12  |  5KB  |  139 lines
  1. *****
  2. * Create order entry screen and print to printer
  3. *****
  4. mvpcspeed1=gete("PCSPEED1")
  5.  
  6. imgsave(10,10,630,470,46,"order")
  7. imgiconbox(10,10,630,470,7,8,0,"raised")
  8. imgsay(4,24,14,14,-1,"","SCHOONER VERSION 2.50 ORDER FORM")
  9. imgsay(7,4,14,14,-1,"","Schooner Version 2.50 is available directly from Jonathan Cook at the")
  10. imgsay(8,4,14,14,-1,"","following address:")
  11. imgsay(10,24,14,14,-1,"","Jonathan Cook")
  12. imgsay(11,24,14,14,-1,"","7034 N. Cedar Ave. #108")
  13. imgsay(12,24,14,14,-1,"","Fresno, CA 93720")
  14. imgsay(14,4,14,14,-1,"","Please complete the following form and mail it with a check for")
  15. imgsay(15,4,14,14,-1,"","$39.95 in U.S. funds made out to Jonathan Cook.")
  16.  
  17. mvname=space(45)
  18. mvcompname=space(45)
  19. mvaddr=space(45)
  20. mvctstzip=space(45)
  21. mvprof=space(38)
  22. mvfind=space(34)
  23.  
  24. imgiconbox(27,233,613,327,7,8,0,"etched")
  25. imgsay(17,8,14,14,-1,"","            Name:")
  26. imgsay(18,8,14,14,-1,"","    Company Name:")
  27. imgsay(19,8,14,14,-1,"","         Address:")
  28. imgsay(20,8,14,14,-1,"","City, State, Zip:")
  29. imgsay(21,8,14,14,-1,"","What is your profession:")
  30. imgsay(22,8,14,14,-1,"","Where did you find Schooner:")
  31.  
  32. imgsay(17,26,14,14,7,"",mvname)
  33. imgsay(18,26,14,14,7,"",mvcompname)
  34. imgsay(19,26,14,14,7,"",mvaddr)
  35. imgsay(20,26,14,14,7,"",mvctstzip)
  36. imgsay(21,33,14,14,7,"",mvprof)
  37. imgsay(22,37,14,14,7,"",mvfind)
  38.  
  39. imgiconbox(144,385,208,409,7,8,0,"raised")
  40. imgiconbox(292,385,356,409,7,8,0,"raised")
  41. imgiconbox(430,385,494,409,7,8,0,"raised")
  42.  
  43. imgsay(28,20,14,14,-1,"","Edit")
  44. imgsay(28,38,14,14,-1,"","Print")
  45. imgsay(28,55,14,14,-1,"","Cancel")
  46.  
  47. do while .t.
  48.     mscrsoron()
  49.     mswait(val(mvpcspeed1))
  50.     mscrsoroff()
  51.     if msinside(144,385,208,409) 
  52.         *****
  53.         * Edit the form
  54.         *****
  55.         imgiconbox(144,385,208,409,7,"",0,"etched")
  56.         imgiconbox(144,385,208,409,7,"",0,"raised")
  57.         imgget(17,26,14,14,7,"","mvname")
  58.         imgget(18,26,14,14,7,"","mvcompname")
  59.         imgget(19,26,14,14,7,"","mvaddr")
  60.         imgget(20,26,14,14,7,"","mvctstzip")
  61.         imgget(21,33,14,14,7,"","mvprof")
  62.         imgget(22,37,14,14,7,"","mvfind")
  63.     endif
  64.     if msinside(292,385,356,409) 
  65.         *****
  66.         * Print the form
  67.         *****
  68.         imgiconbox(292,385,356,409,7,"",0,"etched")
  69.         imgiconbox(292,385,356,409,7,"",0,"raised")
  70.         ***** Confirm box *****
  71.         imgsave(220,140,420,240,10,"orderprn")
  72.         imgiconbox(220,140,420,240,7,15,0,"raised")
  73.         imgsay(11,29,14,0,-1,"","Printing order form to")
  74.         imgsay(12,29,14,0,-1,"","        LPT1:         ")
  75.         imgiconbox(240,205,304,229,7,8,0,"raised")
  76.         imgiconbox(336,205,400,229,7,8,0,"raised")
  77.         imgsay(15,31,14,14,-1,"","  OK  ")
  78.         imgsay(15,43,14,14,-1,"","CANCEL")
  79.         mscrsoron()
  80.         mswait(val(mvpcspeed1))
  81.         mscrsoroff()
  82.         if msinside(336,205,400,229) 
  83.             *****
  84.             * Cancel print
  85.             *****
  86.             imgiconbox(336,205,400,229,7,"",0,"etched")
  87.             imgiconbox(336,205,400,229,7,"",0,"raised")
  88.             imgrestore(220,140,420,240,10,"orderprn",0)
  89.             loop
  90.         endif
  91.         if msinside(240,205,304,229) 
  92.             *****
  93.             * Print
  94.             *****
  95.             imgiconbox(240,205,304,229,7,"",0,"etched")
  96.             imgiconbox(240,205,304,229,7,"",0,"raised")
  97.             setconsole(.f.)
  98.             setoutput("lpt1")
  99.             setprint(.t.)
  100.             setmargin("10")
  101.             output("'---------------------------------------------------------------'")
  102.             output("' '")
  103.             output("'                     Schooner Version 2.50'")
  104.             output("'                          Order Form      '")
  105.             output("' '")
  106.             output("'---------------------------------------------------------------'")
  107.             output("'Please find enclosed a check made out to Jonathan Cook for the'")
  108.             output("'purchase/registration of Schooner Version 2.50:'") 
  109.             output("' '")
  110.             output("'My order information is as follows:'")
  111.             output("' '")
  112.             setmargin("15")
  113.             output("mvname")
  114.             output("mvcompname")
  115.             output("mvaddr")
  116.             output("mvctstzip")
  117.             output("mvprof")
  118.             output("mvfind")
  119.             output("' '")
  120.             setmargin("10")
  121.             output("'---------------------------------------------------------------'")
  122.             eject
  123.             setprint(.f.)
  124.             setconsole(.t.)
  125.             imgrestore(220,140,420,240,10,"orderprn",0)
  126.         endif
  127.     endif
  128.     if msinside(430,385,494,409) 
  129.         *****
  130.         * cancel
  131.         *****
  132.         imgiconbox(430,385,494,409,7,"",0,"etched")
  133.         imgiconbox(430,385,494,409,7,"",0,"raised")
  134.         exit
  135.     endif
  136. enddo
  137. imgrestore(10,10,630,470,46,"order",0)
  138. return
  139.